perm filename CNVR[1,JRA] blob
sn#011360 filedate 1972-11-10 generic text, type T, neo UTF8
(START)
**ERROR** CONNIVER ALREADY RUNNING
(FETCH '(VICIOUS !?ZZ))
IN-LISP
*(STOP)
BKPT CONNIVER-NOT-RUNNING--STOP
↑Z
23250) .IOT 1,1
:NCNVR$
CONNIVER ((TRYNXT 19) (MATCH 13) (DB 31) (CNTRL 33))
TOP-LEVEL
EAR-1
←(ADD '(A B))
((A B) (0. +))
←(ADD '(A C))
((A C) (0. +))
←(ADD DDA(
(FETCH '(A !?Z))
((*POSSIBILITIES (A !?Z)) *IGNORE (*ITEM ((A C) (0. +)) ((Z C))) (*ITEM ((A B)
(0. +)) ((Z B))))
←(TRRT(
(ADD (ID--DF-NEEDED VD(A AA !?X) "AUX"(X (P(FETCH '(BARF !?X))))
:LOOP (TRY-NEXT(INSTANCE))))
VD
←(CDR @VDDV@'VD)
(DATUM (IF-NEEDED VD (A !?X) ("AUX" (X (P (FETCH '(BARF !?X)))) :LOOP (TRY-NEX
T (INSTANCE))) (0. +)) PNAME (-22263365632.))
←(FETCH '(A !?ZZ))
BKPT UNBND-VRBL
(CDR @@II'VD)
(DATUM (IF-NEEDED VD (A (/!? X)) ("AUX" (X (P (FETCH (QUOTE (BARF (/!? X))))))
(/: LOOP) (TRY-NEXT (INSTANCE))) (0. +)) PNAME (-22263365632.))
(SETQ XX '((''(AA(' XX QTES(
↑Z
23250) .IOT 1,1
:NCNVR$
CONNIVER ((TRYNXT 19) (MATCH 13) (DB 31) (CNTRL 33))
TOP-LEVEL
EAR-1
←
(ADD '(A B))
((A B) (0. +))
←(ADD '(A C))
((A C) (0. +))
←(SETQ XX (FETCH '(A !?X)))
((*POSSIBILITIES (A !?X)) *IGNORE (*ITEM ((A C) (0. +)) ((X C))) (*ITEM ((A B)
(0. +)) ((X B))))
←(ADD (IF-NEEDED VD (A !?XXY)(SUCK IT)))
VD
←(FETHCHHCHCH (A UU!?U))U?! A( HH '(A !?U))
BKPT UNBND-VRBL
XX
((*POSSIBILITIES (A (/!? X))) *IGNORE (*ITEM ((A C) (0. +)) ((X C))) (*ITEM ((A
B) (0. +)) ((X B))))
↑Z
23250) .IOT 1,1 $$U
AI ITS 770 CONSOLE 43 FREE. 10:00:00